home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 September / Macworld (1998-09).dmg / Shareware World / Info / For Developers / Script Tools 1.3.6 / Examples / Choose Several Folders Example < prev    next >
Text File  |  1993-06-17  |  395b  |  17 lines
  1. property folderList : {}
  2.  
  3. set folderOK to true
  4. try
  5.     set folderList to ¬
  6.         choose several folders with prompt "Please select folders to be archived:" ¬
  7.             starting with folderList
  8. on error errText number errNum
  9.     display dialog "Choose several files canceled (error: " & errText & ")" ¬
  10.         buttons {"OK"} ¬
  11.         default button {"OK"}
  12.     set folderOK to false
  13. end try
  14.  
  15. if folderOK then
  16.     folderList
  17. end if